#!/usr/bin/env perl

%data = ('google', 'google.com', 'runoob', 'runoob.com', 'taobao', 'taobao.com');
print("data{'google'} = $data{'google'}\n");
print("data{'runoob'} = $data{'runoob'}\n");
$data{"yhp"}='yhp.com';
print("data{'yhp'} = $data{'yhp'}\n");

#读取哈希表
@arr=@data{'google','yhp'};
print("@arr\n");

#检测元素是否存在
if( exists($data{'baidu'}) ) {
        print("baidu网址存在\n");
} else {
        print("baidu网址不存在\n");
}

#hash的大小
$size=keys(%data);
$size2=values(%data);
print("data的大小为:$size\n");
print("data的大小为:$size2\n");

#删除yhp
delete(%data{'yhp'}); #删除 yhp
$size=keys(%data);
print("data的大小为:$size\n");

#遍历hash
foreach $key (keys(%data)) {
        print("$data{$key}\t");
}
print("\n");

while( ($key,$value) = each(%data) ) {
        print("$data{$key}\t");
}
print("\n");

